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TYPE _MAIN ibese -Sep-1984 244: AX-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 2 9346588 CLIUTL.SR neiTipeMain "333.1 . (1). 
1 1 Q MODULE type_main ( t STARLET Native Type UtiLit | | 
1 ; IDENT = *vo4~0 006", os : 
4 , RDoRESS IMGs MODE CEXTERNAL=GENERAL) 
BEGIN 
a0 1) | 
10 309 : Tita aia seaman ican eee Tome Bester ap Rt 
11 9 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B ‘ 
i 1g 1 fs DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. « 
7 Biz : :. ALL RIGHTS RESERVED. : 
15 Bt? 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
bY 18 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ait AND WITH THE * 
1 804 1 !* INCLUSION OF THE ABOVE a earn NOTICE. THIS SOFTWARE OR ANY OTHER « 
18 18 1 fe COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY) = *# 
19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
, 3 : :* TRANSFERRED. * 
'® 7 
¢ 00 § 1 !* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
t 4 Z : — Ae i = NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT : 
5 0025 1 i ® 
§ 88 $ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i 0058 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
9 0029 1 it t 
1 Boao : VeRO RARER AAAAAAAAERAARAAAAAAEREAAAE ETA A AAT ARAEARAAAAA AAA ENE 
00 1 !¢¢ 
5 i 5 } | FACILITY: TYPE | 
5 00 5 1 ABSTRACT: | 
7 sit 44 : This utility program types one or more user-specified files. 
9 9059 ENVIRONMENT : 
0941 1! VAX/VMS operating system, unprivileged user mode utility, 
ark : operates at non-ASt Level. . : . 
0044 1 i AUTHOR: Stephen H. Zalewski, CREATION DATE: 10-Aug-1982 | 
9046 i Modified by: | 
0048 1 | v03-011 $HZ0011 Stephen Zalewski 26-Jul-1984 
eh ' Use seperate descriptor when parsing output qualifier. 
boss 1} v03-010 SuZO010 Stephen H. Zalewski, 20-Jul-1984 
0036 1! type/page for .log files. Make /OUTPUT 
0084 : AE t to | 
55 1! v03-009 noneoi9 Robert Posniak 19=JUN-1984 
8028 1! y find image symbols for screen formating when 
0057 1! -y  oge mode. 
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v03-008 $HZ0008 Stephen H. Zalewski 12-Apr-1984 
Make TYPE/OUTPUT default to TYPE.LI§ instead of SYSSOUTPUT. 


v03-007 $HZ0007 Stephen H. eshewen’ 07-Mar-1984 
Add /PAGE support for non-vt100 type terminals. 


v03-006 $HZ0006 Stephen H. Zalewski 28-F eb-1984 
Do not continue reading records from input file if a 
$GET fails. The only exception is if rms$_rtb is returned. 


v03-005 $HZ0005 Stephen H. Zalewski 16-Feb-1984 
Add support for /PAGE. Add support for sticky searchlists. 


v03-004 $HZ0004 Stephen H. Zalewski 01-Jan-1984 
Fix Line spacing problem when printing headers for 
files with no RAT attributes. Do not allow a user to 
specify SYSSOUTPUT as the input file. 


v03-003 $HZ20003 Stephen H. Zalewski 31=0¢ t-1983 
Do not update related file name pointer in related file 
name block. Also no longer bother doing a SPARSE for each 
file spec. Both of these functions are now done in 
Lib$file_scan. 


v03-002 $HzZ0002 Stephen H. Zalewski 20-Aor~ 1985 
Add functionality to allow a user to type CNIRL/C, 
which causes type to immediately go to next file spec. 


v03-001 $HZ0001 Stephen H. Zalewski 5-Apr-1983 : 
Set default Recored attribute to be CR on open of a file. 
This is needed if either we are getting input from TT: or 
the user did a ‘‘task=foo"’. 
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BRARY ‘SYSSL 
Q cs 


I 
UIRE ‘SRCS:TYPE.RE 


type_file : NOVALUE, 


write_Line, 
ast_routine : NOVALUE, 


typeSget cmdqual : NOVALUE, 
get tern. nfo: NOVALUE, 
ypeSopen_output, 


type$search_error: NOVALUE, 
condit_handler, 
type$file_error : | NOVALUE; 


EXTERNAL ROUTINE 
Lib$Sfind_image_symbol, 

Lib$get_Command, 
qual_file_parse, 

$qual_file_match, 


om o oe 
S. 
5 


$present, 
Stile_scan; 


egated, 
uipro, 
ilfaimat; 


oS 
~-o 


BRARY STARLET .L52"; 


' Qu 
! Fi 


screen_flags : INITIAL(2), 


type$gen_ flags : SBBLOCK 


fed INITIAL(O), 
typeSexit_status : SBBLOCK (4 


typeSinput_esa : VECTOR 
typeSinput_rsa : VECTOR 
typesoutput_rsa : VECTOR 
rh_buf fer : VECTOR 
Line_buffer, 

Line_counter, 

input _desc : $BBLOCK 
output _desc : $BBLOCK 


ee ee 


command_desc : SBBLOCK 
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' VAX/VMS common Got iaictons 
! COPY Literal def 


nitions and macros 


Main TYPE gentros routine 
Type one file 

Write a file header to output file 
Write a Line to the output file 

Ast routine called by CNTRL/C 

Get command qualifiers. 

Determine terminal characteristics 

Open the output file. 

Error goarenney for a file. 

Condition handler for errors and messages 
Handles errors on RMS file functions 


Get common command qualifiers 

Check to see if a file should be typed. 
Get some address space 

Get qualifier value 

Check for qualifiers 

Search wildcard specifications. 


processin 
fail 


it . 9 : 
le ed to meet criteria 


Context longword for common qualifier package 


i General flags 
! Holds most severe error code 


Expanded string address for input filename 

Related ote ing address for input filename. 

Related output address for output file name. 
ddress of record header fubber. 

Address of Line buffer. 

Used if we peginate file. 

CLI input file descriptor block 


' CLI output file descriptor block | 
! Used to get a command if we are paginating 
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16-Sep-1984 01:44: AX-11 Bliss-3 
107808-1 384 9} 10:08 CLIUTL.SRC TYPEMA 
input_ fab SFAB_DECL, ! Input ‘s- 
input_rab SRAB_DECL, ! Input R 
input_nam SNAM_DECL, ! Input 
output_fab : SFAB_DECL, ! Output FAB. 
output_rab : SRAB_DECL, ! Output RAB. 
output nam : SNAM_DECL; ! Output NAM. 


MACRO LBRSYM(LBRNAME) = 
PSECT OWN = SOWNS; 
OWN ZNAME("LBR_",LBRNAME) : LONG; 
PSECT OWN = LBR_ADDRESSES (NOWRITE, EXECUTE); 
OWN ZNAME(LBRNAME,"_ADDR'): INITIAL (ZNAME('LBR_',LPANAME)); 
PSECT OWN = LBR_NAMES (NOWRITE EXECUTE); 
OWN ZNAME(LBRNAME) : VECTORC2 LONG) 
INITIAL (Z2CHARCOUNT (ZNAM "LIBS" .LBRNAME) ) 
Spr TT CRSTRINGC LIBS" , ENAME (LBRNAME)))); 


UNDECLARE ZNAME (LBRNAME)%; 


PSECT OWN = LBR_ADDRESSES(NOWRITE EXECUTE); 


OWN 
LBR_ADDR_HEAD : VECTORCO,LONG); 
PSECT OWN = LBR_NAMES(NOWRITE, EXECUTE); 


LBR_NAMES_HEAD : VECTORCO,LONG); 
pt et ey =PAGE) 


BRSYM $s 
LBRSYM(SET~ SCROLL); 
LBRSYM(UP_SCROLL); 


PSECT OWN = LBR_ADDRESSES; 


OWN 
LBR_ADDR_END : LONG INITIAL(0); 
PSECT OWN = SOWNS; 
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IN 1B-5e $1984 01:44: AX-11 Bliss-32 V4.0-74 
1 =300 138% 94:96:08 CLIUTL.SRCJTYPEMAIN.B 3.1 
ROUTINE typeSmain = 


oe 
! Functional description 


This routine is the central control routine for the TYPE utility. 
It determines the basic logical flow and calls support routines 
that perform each logical function in typing files. 

Calling sequence 
typeSmain () 


Input parameters 


SESSSFERE 


RIPPER POPOMEMIPOPOPOPEADPOPIPIPIRD 28 at ast tt at st at at nt rt nt tt st at tt a 


none 
Implicit inputs 

none 
Output parameters 

none 
Implicit outputs 

typeSexit_status - set whenever an error occurs 
Routine value 

Most severe error encountered during processing or SS$_NORMAL 
Side effects 

The specified files are typed. 


3 
BEGIN 
LOCAL 
scan_context : INITIAL(0), 
status; ! General routine return code 
ENABLE condit_handler; ! Enable a local handler. 
CHSFILL(O, dsc$c_d_bin, input desc); ! Make descriptor dynamic 


input desc(dsc$b class) = dsc$k_class_d; 
CHSMOVE (dsc$c_d_Bin, input_desc,command_desc); 
CHSMOVE (dsc$c_d_bin, input_desc ,output_desc); 


status = LibSget_vm(UPL1T(32767),Line_buffer); ! Get space for Line buffer. 
If NOT .status 
THEN SIGNAL_STOP (.status); 


SFAB_INIT (FAB = input_fab, ! Initialize the input FAB 


Page 
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H 
16-Sep-1984 01:44: AX-11 Bliss-32 V4.0-74 Page 6 
12-808 71382 9 46:88 CLIUTL.SRCJTYPEMAIN 633.1 . (3) 
CTX = input_rab, ! Store address of input RAB. 
RAT = CR ! Set record attr. in case TT input 
ee Ser bet pur | Eilse Gchete be reeds prite Go the feput #4 | 
= ° : ow others to read, write to the inout e. 
DNA = UPLIf BYTE ('-LIS"), | Default file type is .LIS | 
DNS = 4, ! Size is 4. 
FOP = <NAM,SQ0> ! Open by name block. 
NAM = input_nam); i NAM block address. | 
SRAB_INIT (RAB = input_rab, ! Initialize input RAB | 
RAC = SEQ, ! Record access is sequential. 
ROP = 496 i Record options 
us2 = 32767, i Input buffer size 
UBF = .Line_buffer, ! Input buffer address. 
RHB = rh_buffer ! Record header buffer address 
FAB = input_fab); i Address of input FAB. | 
SNAM_INIT (NAM = input_nam, ! Initialize NAM block. 
ESS = nam$c_maxrss, ! Expanded string size 
ESA = type$input_esa, ! Expanded string address 
RSS = nam$c_maxrss, ! Related string size 
RSA = type$Tnput_rsa); ! Related string address | 
type$get_cmdqual(); ! Get the command qualifiers. | 
get_term_info(); 
' 
; The following loop is executed for each file specification supplied by the user. | 
wanna dO ! Beginning of repeat loop | 
| 
IF gL Dp peleaaacettinaeaial natal input_desc) ! If no more file specs are coming, 
input_fab fab$l_fna = .input_desc Cdsc$a_pointer); ! Move the file name address 
input fablfab$Sb_fns) = .input_desc Cdsc$w_length); ! and length into the file FAB block. 
LibSfile_scan(input_fab ! Type every file specified in the 
type. file, i file spec just found. 
typeSsearch_error, ! Go here if file is not found. 
scan_context); 
END; ! End of “WHILE true DO’* file spec processing loop. | 
IF ,output.fabltabsu_ifi] NEO 0 ! If the output file is open, close it. | 
BEGIN 
status = SCLOSE(fab = output_fab); ' Close the output file. 
IF -Status ! Report an error is we fail. 


| 
HEN 
- type$file_error(msg$_closeout ,output_fab); 

| 


A -typeSexit_status OR sts$m_inhib_msg; ! EXIT with no message 
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.TITL N 
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.PSECT LBR_NAMES,NOWRT,2 
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00000 LBR_NAMES HEAD: 
00000 ERASE _PAGE : 


00004 ce 1 1iQBORESS AAA 


“LONG 14 
000 "ADDRESS P.AAB 
0010 PUT_SCREEN: 

~ LONG 4 
00014 “ADDRESS P.AAC 
00018 SCREEN_ at ~ 


15 
001C "ADDRESS P.AAD 
0020 SET_CURSOR: 

LONG 14 
o00s «ADDRESS P.AAE 
00028 SET_SCROLL: 


«LON & 
pont +ADDRESS P.AAF 
000350 UP_SCROLL: 


oL 13 
00034 -ADDRESS P.AAG 

-PSECT LBR_ADDRESSES ,NOWRT,2 
00000 LBR_ADDR_HEAD: 


LK 
00000 ERASE_PAGE ADDR 
ABD RESS LBR_ERASE_PAGE 
00004 ERASE_LINE_ADDR: 
. ADDRESS LBR_ERASE _LINE 
00008 PUT_SCREEN ADDR: 
ADDRESS LBR_PUT_SCREEN 
Q000C SCREEN_INFO. ADDR: 
ADBRESS LBR_SCREEN_INFO 
00010 SET “CURSOR ADDR: 
- ADDRESS LBR_SET_CURSOR 
00014 SET_SCROLL_ADDR: 
- ADDRESS LBR_SET_SCROLL 
00018 UP_SCROLL 


AD 
ADDRESS LBR_UP_SCROLL 
O0001C LBR -ADDR. “END: 
ONG 0 
-PSECT SPLITS,.NOWRT ,NOEXE ,2 
09 oor P.AAA: .ASCII \LIBSERASE_PAGE\<0><0> 
; 6 P.AAB: .ASCII \LIBSERASE_LINE\<0><0> 


SF 
45 
SF 
5F 
53 


54 
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54 
54 
SF 


50 
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55 
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P.AAC: .ASCII 
P.AAD: .ASCII 
P.AAE: .ASCII 
P.AAF: .ASCII 
P.AAG: .ASCII 


COOOOGOOQOQOOOQOOOOoOooo 
COOOOOOoOoOOoOoooooooo 


COOOCOCCOSOSOOOSOOOoOoooO 


»PSECT 


00000 LBR_ERASE PAGE: 
00004 LBR_ERASE LINE: 
00008 LBR_PUT_SCREEN: 
»BLKB 
0000¢ LBR_SCREEN INFO: 
00010 LBR_SET_CURSOR: 
00014 LBR_SET_SCROLL: 


-BLK 
00018 LBR_UP_SCROLL: 
-BLKB 


-PSECT 


00000 CHANNEL: : 
-BLKB 

00002 “BLKB 

00004 TOP_LINE:: 


BLK 
00008 BOTTOM_LINE:: 


-BLKB 
0000C BOTTOM_SCROLL:: 

-BLKB 
00010 BOTTOM_OF _PAGE:: 


-BLKB 
00014 LINE_WIDTH:: 


-BLKB 
00018 MIDDLE_OF _LINE:: 


-BLKB 
0001C SCREEN_FLAGS: 1 
00020 TYPESCONTEXT:: 


-BLKB 
00000000 00024 TYPESGEN_FLAGS:: 


do seoct9ne 01:44 


nw fF fF FF fF SF KH 
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\LIBSPUT_SCREEN\<0><0> 
\LIBSSCREEN_INFO\<0> 

\LIBSSET_CURSOR\<0><0> 
\LIBSSET_SCROLL\<0><0> 
\LIBSUP_SCROLL\<0><0><0> 
32767 


\.LIS\ 
\INPUT\ 


: LON 
84 eADDRESS P.AAK 


SOWNS ,NOEXE ,2 
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0002C TYPESINPUT ESA:: 
.BCK 


$138 TYPESINPUT RSA:: 
-BCK 


$055 TYPESOUTPUT RSA:: ; 


ied RH_BUFFER:: 


00428 " 
0042C LINE_BUFFER:: 


00430 LINE_COUNTER: : 
00454 INPUT DESC? 
0043¢ OUTPUT piss: 
00444 COMMAND ESC: : 
0044C INPUT_FAB:: 
0049C INPUT_RAB: : 
004E0 INPUT_NAM:: 
00540 OUTPUT_FAB: : 
00590 OUTPUT_RAB: : 
005D4 OUTPUT_NAM: : 

-BLKB 

RMS _PTR= 


$ 
SRMS_PTR= 
SRMS_ =PTRe 


*EXTRN 
.PSECT 
OOFC 00000 TYPESMAIN: 


0000° cr 4 


0132 


fm | RS 
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4g 
96 
INPUT_FAB 
INPUT~RAB 
INPUT™ 
LIBSFIND_TMAGE_SYMBOL 
LIBSGET C 
LIBSQUAC_FILE_PARSE 
LIBSQUAL~FILE~ 
LIBSGET_0M, CCISGET_VALUE 
CLISPRESENT LiBstiCe rca 
CLIS_NEGATED, L1B$_G 
LI6S=F PICPAIMATS BS ae oee 
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#0, (SP), #0, #8, INPUT_DESC 
» INPUT_DESC+3 


, INPUTDESC, COMMAND_DESC 
tee OUTPUT _BESC 
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tin NE 
P.AA 
We, L LIBSGET_ vM 
Tus - 
ST TATO 
STA te’ 
#1, LIB$STOP 
#0, (SP), #0, #80, SRMS_PTR 
#20483, $RMS PTR 
f + oF 58 0.8 SRius PIR+4 
INPUT_RAB g Al PTR+24 
r RAMs _ 


PTR+ 
INPUT _NAM, “SRN PTR+40 
SRMS_PTRI48 


_PTR+53 
#0, (SP) #0, #68, SRMS_PTR 


#17409, SRMS_PTR 
+t: 6. aan PTR+4 


SRM 
530787, Ras 
+ 
INPUT_FAB, $RMS~PTR+60 
#0, (SP), #0, moG SRMS_PTR 
424578. SRMS_PTR 
#1, $RMS _PTRT 
TYPESINPOT RS RSA, SRMS_PTR+4 
Hy. tees ESA, prs _PTR#+12 
. TYPESGET 
; GET_TERM~ ONO 
tL ISGET _VALUE 


no, _DESC+4, INPUT_FAB+44 
INPUT“DESC, INPUT_FAB+52 


TYPESSEARCH_ERROR 
TYPE FILE 
INPUT_FAB 

as, LTBSFILE_SCAN 
OUTPUT _FAB+2 

4$ 
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RO. STATUS 


Pe Se Se Se Ge Ge Se Ge Se F- Se Se Ge Se Se Se Ge Fe Se Ge Ge Ge Ge Se Fe Fe Be Ge Se Ge Ge Fe Be Se Ge Be Be Se Be Be Ve Se Bo Fe Se Se Se Se Se Se Ve Se Se Se Be Fe Se 
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TYPE_MAIN 16-Se 4 Ax-11 Oi ioe =32 v4.0-7 
v04-600 12: i 1382 93:95:38 CE TUTL SREITYPEMAIN. 63351 
| 56 £8 001 BLBS SN 4s 
| 0196 $ §P pet g PUSHAB 
wow co” ' Pe 8015 ati Nb TYPESFILE 
| 50  FBF4 (7 10000000 &F c3 0184 48: 61813 res ffeettl FYBESEXIT _STATUS, RO 
0000 0013F S$: WORD Sa thi 
| as a or cr 

7E 04 aC ” Pe: mova 4 (AP (SP) 
0000v CF 0 FB 0149 CALLS #3, CONDI} HANDLER 


3 Routine Size: 335 bytes, Routine Base: $CODE$ + 0000 


: 316 0398 1 


z 


WMPwn— 3 


—— =O 
WNM—OO0e 


a 


WN =O OBNOUESWN “OOOVNOAUSE 


AWAIT PROPOR NoRoToTonon 


ERE 
PRaPEPoPPOPPEPIPOPOPOPDPIPIPOPIII 9 a st tt st at a st st kk tt td at tt tt ot tt 


eruw 
owo$ 
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MAAN EEL EEE 


Calling sequence 


CLIUTL.SRC MAIN.B32;1 


ROUTINE type_file : NOVALUE = 


bas 
' Functional description 


This routine types one ihe, If the output file is SYSSOUTPUT, it is closed after we 

finish wr eeine the input file. The reason for this is that there could have been several files 
iven on the input sine. and they coutd each have different record characteristics. By closing 
he wrt file each time, we make sure that we pick up the correct record charactersitics for 

each file when we type it. This is not possible when the output file is directed to something 

other that sys$output because we would create a new version of the output file every time we 

opened and closed. it. 


type_file 


Input parameters 


none 


Implicit inputs 


Output parameters 


none 


Implicit outputs 


none 


Routine value 


novalue 

-_ 

BEGIN 

LOCAL 
name_desc : VECTOR(2), ! Descriptor for file name being typed 
prompt_desc, ; pescr iptor to hold prompt arguments. 
status; : Holds RMS status codes. 

rompt_desc = name_desc; ! Point prompt descriptor to name descriptor. 

nane desc 9 5 > indut _naninensp_rsl 3 ! Load ane desc with related string for file. 

name_descl1] = .input_naminam$\_rsaJ; 

status = LibSqual_file_match( typeScontext, ! Context pointer. 


nput_fab, ! Fab Pointer. 

P ! No file name. 
Sdescriptor('!AS, type? (NJ:').! Prompt string. 
proept.desc, ! Prompt arguments. 

ds ! No prompt routine. 


IF NOT .status ! If error status returned 


"1 
16-Sep-1984 01:44:5 AX=11 Bliss-32 V4.0-74 
1exseP7 1382 95:45:38 OL et TiseMaic Page 15 


2 
TYPE_MAIN 1e-se 1984 01:44:5 AX-11 Bliss-32 V4.0-74 Page 13. T 
v04=000 Vengep=19ee 2:13:08 — Lekiute snesTvPeMainsagss 1 WF a) | v 
: 377 456 THEN | 
; are 4 EGIN : 
; 379 4 8 IF (.status NEQ Lib$_filfaimat) AND ! and the error was not ‘file failed to meet criteri : 
; 380 4 (.status NEQ Lib$_quipro) ! or ‘quit processing’ 3 
3 sel 460 N ! Then report an error. : 
3 B 461 typeStile_error(nsg$_t{lnotacc, input. fab) ; F 
; 38 106 RETURN true; ! Skip this file. ; 
; Be ret END; | 3 
; 386 0465 IF (NOT SOPEN(FAB=input_fab)) OR ' If we cannot OPEN : 
; 387 106 (NOT SCONNECT(RAB=input_rab)) ! or CONNECT to this file 3 
; 388 46 THEN ! then F 
; 389 466 BEGIN i Report an error and skip this file. ; 
; 390 046 preest se error (msg$_openin, input_fab); 3 
: 391 0470 RETURN false; | 3 
3 +f 0471 3 3 
; 39 Bere : 
; 394 047 IF “output. fept febSu. if) EQL 0 ! If output file is not open $ 
: 4 pene THEN typeSopen_output (); ! then go open and connect to it. : 
: 398 ocr? 3 IF $gen_flags(type$v_paginate] 
3 . type$gen_flags(type$v_paginate 3 
; 339 0478 THEN ’ , : 
; dot b480 TF. typeSgen. tlagsltypesv_eot) 
; . type$gen_flags(type$v_eo 3 
; 40 0481 THEN ’ | ; 
; 40 0482 4 BEGIN 3 
; 404 04835 4 (.LBR_PUT_SCREEN) (Sdescriptor('Press RETURN to continue’) ,bottom_of_page,middle_of_line,screen_flags | : 
: 405 0484 4 a Vouge’t commend (command. desc); : 
; 406 0485 4 type gen_flags(type$v_eof] = false; : 
; 407 0486 : : 
3 408 0487 (.LBR_ERASE_PAGE) (top_line,top_line); : 
: 409 0488 IF .output_Tablfab$v_crJ | 3 
; $10 0489 THEN : 
> 411 0490 4 BEGIN : 
: 412 0491 4 bottom_scroll = .bottom_of_page - 2; | : 
: 413 0492 4 Line_counter = 0; | 3 
3 4146 0495 4 : 
; 415 0494 3 ELSE 3 
; 416 0495 4 BEGIN : 
: 417 0496 4 bottom_scroll = .bottom_of_page - 1; | : 
: 418 0497 4 Line_counter = <1; : 
: 419 0498 END; : 
: 420 499 (.LBR_SET_SCROLL) (top_Line,bottom_scroll); ; 
; 421 500 END; : 
638 0303 | ; 
: 424 0308 IF .type$gen_flags(type$v_write_header] OR ! If write header flag is set 3 
; rot 504 - input _nam(nam$v_wildcard) ! or there are wildcards in the input file spec F 
: 426 505 ! then write the file name to the output file. : 
5 : i 286 write_header(); | : 
3 ? 9 308 type$gen_flags(type$v_write_header] = TRUE; ! set write header flag to true so we print the next | F 
; | : 
3; 431 510 : 
Se at WHILE true DO ! Until we see ‘‘end of file’’ DO 3 
3 43 512 BEGIN : 


00 e" 
52 28 ¢ ; 
65 75 6E€ 6 


74 6E OF 08 


3; «4 13 IF_ .type$genr_flags(type$v_controlc] 

: 435 12 4 heg*7eSoen.flegsCtypesv. 

a 1g ¢ frostens Heniitensie aambeeial © tah 
: eSgen_flags e$v_controlc] = false; 
>; 438 i$ 4 eXtT LOOP? nA re 

; 439 218 ND; 

; 440 1 status = $GET(rab = input_rab); 

3; 441 520 4 ,stetus EQL rms$_eof 

3: 44 521 

thee ase "een Sgen_flags(typeSv_eof] = t 

; e$gen_flags e$v_eo rue; 
des 0524 EXIT or. 

; 4466 525 

3: 447 05 $ i NOT * status 

: 4468 $2 THEN 

; 449 528 4 BEGIN 

; 450 0529 4 typeStile. aT he ee 
3; 451 0530 4 “status 7 rms b 

; 45 b23) 4 THEN EXITLOOP; 

; 45 0532 END; 

: 454 05335 output_ rab rab$w_rsz] = .input_rabCrab$w_ . 
s 455 0534 output_rabCrab$l"rbf] = .input_rabCrab$l—rb 
; 456 0535 status” = write_line(); 

; 457 0536 IF NOT .status 

; 458 0537 onEN EXITLOOP; 

3; 459 0538 D; 

; 460 0539 

3: 461 0540 st = $CLOSE(fab = input_fab); 

3 re 4 0541 iF. status 

; 4 b2e6 THE 

3 rie: Beez ees error (msg$_closein, input_fab); 

: 666 0545 Fut 7Pesgen. flags(type$v_sysoutput] 

: 467 0546 

; 468 0547 EN BEGIN 

3; 469 0548 status = SCLOSE(fab = output_fab); 

: 470 0549 IF NOT .status 

; 671 0550 

3 67 0551 type$file_error(msg$_closeout ,output_fab); 
: 47 8236 ND; 

3: 4674 055 

3; 475 0554 

: 476 0555 — -Status; 

3 477 0556 1€E 


3A 5D 4E 5B 20 3F 65 70 79 74 20 2C 53 41 21 00088 P.AAM: 
8 00000F 098 P.AAL: 
6F 74 20 4E 52 55 54 45 73 73 «65 ° AO P.AAO: 


elt. guise 


»PSECT 
ASCII 
BLKB 


-LONG 15 
»ADDRESS P 


ASCII 
- LONG 


oe ose OF 


75 AX-11 Bliss-32 V4.0-7 

:0 CLIUTL.SRC TYPEMAIN.03 37 
IF user says CNTRL/C 

then 


reset the fla 


! and go to nent file. 


Get a record from the input file. 
If we are at eof then exit loop. 


We have an error, so report it. 


Ignore record to big error. 


} Read succeeded. 


write it to the output file 


ALL done with the input file 
so close it. 


Report an error is CLOSE fails. 


If we are writing to sys$output 
then ciose the output file to. 


Report an error if CLOSE fails. 


SPLITS,NOWRT ,NOEXE ,2 
stAS. type? C(N):\ 


~AAM 
\Press RETURN to continue\ 
24 


-ADDRESS P.AAO 


a at 


D 2 | 
16-Sep-1984 01:44: AX-11 Bliss-32 V4.0-74 Pa 15) 
102 860- 1984 } 16:08 CLIUTL.SRCITYPEMAIN.B3 31 et (4). 

~EXTRN SYSSOPEN, SYSSCONNECT 

eEXTRN = SYSS$GET 

-PSECT SCODES,NOWRT,2 


003C 00000 TYPE_FILE: | 
. WORD 


Save R2,R3,R4,R5 3: 0399. 
55 9000Vv cf 9E 0000 MOVAB TYPESFILE_ERROR, RS ; . 
54 000000006 0 9E 0000 MOVAB SYSSCLOSE : | 
33 0000' CF H 9005 MOV TYPESGEN_FLAGS, R3 : 
E 8 Ce 0001 SUBL2 #8, SP : | 
bp 18 PUSHL SP > 0445! 
04 AE 4BF C3 9A 0001 MOVZBL INPUT_NAM+3, NAME_DESC 3 0446 | 
08 AE 4cO ¢3 00 OO01E MOVL  INPUT-NAM+4, NAME-DESC+4 + 0447 
7E p4 0024 CLRL = =(SP + 0448 
04 AE OF 990 $ PUSHAB PROMPT_DESC : 
0000" CF 9F 000 PUSHAB P.AAL > 0451 
? p4 00 D LRLs + 0448 
0428 C3 9F O002F PUSHAB INPUT_FAB : 
FC AS. 9F 00033 PUSHAB TYPESTONTEXT : 
000000006 00 06 FB 00036 CALLS m6, LIBSQUAL_FILE_MATCH ; 
52 50 00 00030 MOVL R STATUS : | 
¢3 52 34 90040 BLBS STATUS, 3$ ; 0455, 
0 000000006 00 9E 0004 MOVAB LIBS _FILFAIMAT, RO + 0458 
50 52 D4 0004A CMPL = STATOS, RO : 
0A 13 00040 BEQL =s1$ : 
50 000000006 00 9E 0004F MOVAB LIB$_QUIPRO, RO ; 0459) 
50 52 D1 00056 CMPL  STATOS, RO : | 
01 12 00059 1s: BNEG  2$ ; 
0% 00058 RET : | 
0428 C3 9F 0005C 2$ PUSHAB INPUT_FAB + 0461 
009513 8F DD 00060 PUSHL #9769784 : 
26 11 00066 rT} ; 
0428 C3 9F 00068 3$ PUSHAB INPUT_FAB > 0465 | 
000000006 00 01 FB 6006¢ CALLS #1, SYSSOPEN ; 
OE 50 EY 007 BLBC ~—_ RO, 4$ F 
0478 C3 SF 00076 PUSHAB INPUT RAB + 0466 
000000006 00 gi FB OOO7A CALLS #1, SYSS$CONNECT : 
0D 9 EB 0081 BLBS $ ; 
0428 C3 SF 00084 4$: PUSHAB INPUT FAB + 0469 
00951098  &F pp 0088 PUSHL  #9769T12 ; 
OS1E "3 4 Boos; ak; Ret TPUT_FAB+2 2 0473 
#3 00095 gaea RUT enks 
0000v CF Q FB 00097 CALLS 40. TYPESOPEN_OUTPUT : 0474 
58 63 E1 009¢ 7$: BBC #3, TYPESGEN_FLAGS, 11$ > 0477 
21 63 3 OOA BBC #6, TYPESGEN-FLAGS, 8$ : 0480 
FB AS «OF OO0A4 PUSHAB SCREEN_FLAGS > 0483 
F4 AS 9F OOOAT PUSHAB MIDDLE~OF_LINE ; 
Fe A F AA PUSHAB BOTTOM_OF PAGE 3 
0000" cf F OOOAD PUSHAB P.AAN : | 
0000" oF 4 FB 00081 CALLS #4, @LBR_PUT_SCREEN : 
0420 C3 9F 00086 PUSHAB D BES > 0484 
000000006 0 1 fB OOOBA CALLS #1 LIBSGET COMMAND F 
6 40 FF BA C1 BICB2 #64, TYPESGEN_FLAGS : 0485 
EO A3 9F OO0CS 8$: PUSHAB TOP_LINE + 0487 


2 | 
TYPE_MAIN 16-se -1984 01:44:5 AX-11 Bliss-32 V4.0-74 Page 16 
v04-600 1 ~8ep-19 4 04 bi08 CLIUTL. SRC TYPEMAIW.045;1 OF | 
| 
EO a3 9F 000C8 PUSHAB TOP_LINE ; 
9990" D F CB CALLS #2, @LBR_ERASE_PAGE : 
06 AC E D BC #1, OUTPOT_FAB?30 > 0488 
eB OA EC A : ¢ D6 SUBL3 #2, BOTTOM-OF_PAGE, BOTTOM_SCROLL > 0491 
040C 3 D4 p CLRL LINE COUNTER : 492 
EB AS FC a3 1 3 E2 98: SUBL3 #1, BOTTOM_OF PAGE, BOTTOM_SCROLL : 496 | 
o40c =C 1 CE OO0E MNEGL #1, LINE COUNTER + 049 
E8 AS 9F QOOED 108:  PUSHAB BOTTOM STROLL ; 0499 | 
EO A3 9F OOOF PUSHAB TOP_LIRE : 
0000" oF 0 F F CALLS #2, @LBR_SET_SCROLL ; 
05 63 } E fB11$: BBS # TYPESGEN-FLAGS, 12$ : 9503 
5 O4F1 € Fe BLBC INPUT_NAM+ 3 + 0504 
0000v CF re 01 128: CALLS #0, WRITE_HEADER + 0506 
6 8 or 13$:  BISB2 #2. TYPESGEN_FLAGS + 0508 
05 é 1 00109 14$: BBC #5. TYPESGEN-FLAGS, 15$ : 0513 
6 0 8A 0100 BICB2 #32, TYPESGEN_FLAGS + 0516 
4F 11 119 BRB 18$ + 0515 
0478 C3 9F 00112 15$ PUSHAB INPUT_RAB + 0519 
000000006 00 07 FB 0116 CALLS #1, SYSS$GET : 
52 30 DO 00110 MOVL RO. STATUS : 
0001827A &F 52 (D1 001 0 CMPL STATUS, #98938 > 0520 
6 12 0127 BNE 6$ ; 
63 40 BF 88 00129 BISB2 #64, TYPESGEN_FLAGS > 0523 
11 01 D BRB : 0522 
1 5 £8 Ol2F 16$: BLBS = STATUS, 17$ > 0526 
0428 ¢ F 01 2 PUSHAB INPUT FAB + 0529 
00951080 §8F DD 00136 PUSHL #9769736 : 
65 08 FB 001 3¢ CALLS #2, TYPESE ILE ERROR : | 
00018148 8F D1 0013F CMPL STATUS, #98728 : 0530 
19 if 0146 BNEQ =} F 
OS8E C3 049A C3 B80 00148 178:  MOVW  INPUT_RAB+34, OUTPUT_RAB+34 + 0533 
0594 «¢3 04A0 C3 DO OOT4F MOVL §INPUT"RAB+40, OUTPUT~RAB+40 : 0534 
0000v CF 00 FB 00156 CALLS #0, WRITE_LINE : 0535 
52 20 D0 0158 MOVL RO. STATU : 
A : 8 015€ BLBS STATUS, 14$ : 0536 
0428 C3 9F 00161 18$: | PUSHAB INPUT FAB : 0540 
64 1 FB 00165 CALLS #1, SYSSCLOSE ; 
52 00 0168 MOVL U : 
0D 3 0168 BLBS STATUS, 19$ + 0541 
0428 C3 OOF O16 PUSHAB INPUT FAB : 0543 
009510 F OD 001 PUSHL #9769040 : 
65 FB 0017 CALLS #2, TYPESFILE_ERROR : 
1A 63 FI 178 19$: BBC #2, TYPESGEN_FLAGS, 21$ : 0545. 
051c 6C3) OOF O017F PUSHAB OUfPUT : 0548 
64 1 FB 00183 CALLS #1, SYSSCLOSE ; | 
2 i) 1 MOVL 3 
0D 3 1 BLBS STATUS, 21$ : 9549 | 
051¢ F 001 PUSHAB : 0551. 
0095105 F OD 001 PUSHL #9769028 ; 
65 2 FB 196 208: CALLS #2, TYPESFILE_ERROR : | 
04 00199 21$: RET > 0556. 


; Routine Size: 410 bytes, Routine Base: SCODES + 014F 


; 478 0557 1 


F 2 
6-Sep=1984 01:44: Ak=11 BLiss-32_V4.0-74 Page 17 
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ROUTINE write_header = 
14 
Functional description 


This routine write the current file specification to the output file. 
Calling sequence 
write header () 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 


FUSS 


: i$ | 

: et 1 

3 $6 2 | 

; es 3: 
; 64 1! 
: 65 1; | 
; 89 1 
: 91 8 i Input parameters | 
> 49 1 1 | 

; 49 571 1! none 
: toe 278 i Implicit inputs | 
: 496 if de 8 Beam “ 

3; 497 $75 1! none | 
; 498 278 1! 

3 499 577 1 ! Output parameters 
; $00 0578 1! 
; $01 0579 1! none 
BE BT snottcte outou 

$ ! cit o s 

: 504 0582 1 *< — 

: 505 583 1! none 

; 208 0584 1! 
3 307 0585 1 ! Routine value 
: 508 Bae 1! | 
: 509 0587 1: novalue | 
; 510 0588 1! 
3s $11 0589 1 !-- 
3 i 0590 BEGIN 
: 1 591 
s “3 235 LOCAL 

3 15 59 blank_buffer : INITIAL(' "We 

; 318 0395 temp_Buffer : VECTORCnam$c_maxrss+1 ,BYTE); 

3 319 238 output_rab(rab$v_cco] = true; ! Cancel CNTRL/O at start of each new file. 

; 520 59 IF .output_fabl fab$v_ftn] ' If FIN format fil 

: 1 39 THE oo CEM ie ty ! ths = 
; 5 temp_buffer(0) = ZASCII* °; ! Set single space carriage control 
3 4 output_rabCrab$w_rsz] = 1; 
3 5 output rab rab$l_rbf] = temp_buffer; 

3 write Tine(); 

F $ CHSAOVE (. input nam(nanSb_rsi). input _nam(nan$t_rse).temp_bufter(1)); | 
; w 3 

3 output rabCrab$w_rsz] = 1; 

3 write Tine(); | 
: 1 END; 

; g If .output_fab{fab$v_prn) ! If PRN format file | 
3 THEN ' Then 

: 5 rh_buffer = %Xx°8D01'; ! Set single space PRN carriage control 


S= 
as 


1S-senct9ee 4s44:5  yonett BLings32 v4 0742 


1 If .output_fab{fab$Sv_prn] OR ! If PRN or CR 

1 -output_ ebb fabgv -erJ 

1 THEN ! Then 

1 BEGIN 

1 ae ae rab(rab$w_rsz] = 1; ' Print blank Line. 
output rabir rab$l_ rdf] = blank buffer; 


tell. rab rabSy. rsz - input_nam(nam$b_ Set 


= 
ou put re? rabsl_ -rbf) = .input_nam(nam$\"rsa 
output_ a « ay rsz 2]: ! Print blank Line. 
output rant rabsl_ “rbf) = Set butters 


GRIPAIGA EERE EE EE Red 
ottattcttettctettte 


PPPS ES EE EE EE 


5 
§ write _T 
5 


3 8 

3 9 write_Tine 

3 ° ND; 

3 § IF NOT -output_ fabCfab$v_prn] AND ! If no carriage control 
3 NOT .output_fab(fab$v_cr] AND 

3 4 NOT .output_fablfabSv_ fr: J 

3 5 06 THEN ! Then 

3 $ 06 BEGIN 

3 06 blank_buffer = %x"ODOAOA'; ' But <CR><LF><LF> into buffer 
: 8 output_rab(rab$w_rsz) = 3; ! Print blank Line. 
: 559 output_rablrab$l-rbf) = blank_buffer; 

; 560 8 write _Tine(); 

: 561 0639 output_rabCrab$w_rsz] = .input_nam nam$b_ rely: 

: 266 0640 output_rabCrab$l_rbf] = .input_namCnam$l“rsa 

; 56 0641 write _line(); 

3; 564 bose output_rab(rab$w_rsz) = 3; ! Print blank Line. 
; 565 064 output rab abst “rbf) = blank_buffer; 

; 566 0644 write_Tine 

s 367 0645 ND; 

; 568 Bobs 

3 23? +944 output_rabCrab$v_cco] = false; ! Renable CNTRL/O 

: He 0649 RETURN true; 

3; 572 0650 END; 


OOFC 00000 REE eee: 


WO Save R2,R3,R4,R5,R6,R7 
99 v CF 9E 902 MOV WRITE LINE. R? 
CF OE MOVAB TPUT RAB 34, R6 
FF E 9E 0000C MOV - (SP) 
202020 F 2 011 PUSH aS38976cb8 
0 &8F 17 BISB2 #128, OUTPUT_RAB+7 
AC as 1 BLBC TPUT FAB+30, 1$ 
2 0 MOVE #32, TEMP_BUFFE 
1 3 4 MOVW #1, OUTPUT RAB+34 
04 ar E 7 MOVAB 3 BUFFER MO UTPUT _RAB+40 
00 FB C CALLS @# O, RITE mu 
FF31 3A F HOV ZBL INPUT _NAM 5. AO 
8 movC RO, IRPUT t. NAM+4, TEMP_BUFFER+1 
Fe 00 CALLS #0, WRITE“LINE 
1 8B MOVW #1, OUTPUT _RAB+34 


H 2 
16-Sep-1984 AX-11 Bliss-32 V4.0-74 
12: aben- 1382 93:95 3 CLIUTL. SRCJTYPEMAIN.B32; 1 
F 41 CALLS #0, WRITE 
0c AC OA 5 fi 44 1$: ' 4 TPUTLFAB Ne +30, 2$ 
roe he _ : 6 39 ees 4360 outPu T erat, 3$ 
$3 AC 6 ¢ E gs: BBC y, » OUTPUTS “FAB+30, 4$ 
66 1 2 A 38: MOV OUTPUT“RAB+ 34 
06 A 6 3 $0 ROVAB bine OUTPUT_RAB+40 
66 FF31 C6 9) 64 MOV ZBW T NARS OUTPUT_RAB+34 
06 A fre 6 i 69 MOVL INPUT NAM+4, QUTPUT~RAB+40 
gf 1 BB OF noun Ak WRITE LENE 34 
06 h Be a978 MOVAB ana OUTPUT_RAB+40 
32 AC 6 £6 007C 4$ BBS ; OUTPUT AB : 
2D AC Ab 1 £0 00081 BBS , OUTPUT: “FAB+ 30, 3§ 
29 AC AG EB 90086 BLBS 4 pul FABT30, 
6E OOODOAOA BF 00 OO8A MOVL #854538, BLANK SURFER 
66 3 2 99091 mov , OUTPUT RABT34 
06 Ab 6 E 00094 MOVAB BLANK ANK BUFFER, OUTPUT_RAB+40 
67 00 FB 0098 CALLS #0, WRITE gis 
a 
67 08 FB OOOA6 CALLS HR WRITE rin NE 
66 0 Hy \00A9 MOVW RAB+34 
06 ag 6 Hi Bc385 NOVAB eat ree OUTPUT _RAB+40 
ES Ab 80 SF BA Socg 5$: BICB2 #1 158" AUTPUT _RAB+7 
50 01 BO 00088 OVL #1, RO 


; Routine Size: 188 bytes, Routine Base: S$CODES + 02E9 


; BS 0651 1 


Bete Se Ge Se Se Ge Se Se Ge Ge Se Ge Ge Ge Se Se Ge Fe Fe Se Ge Ge Ge Se Ge Ge Se Be Se 


16-Sep-1984 01:44: AX-11 Bliss-32 v4.0-74 p 0 
04-000 be tiaats rik Pe et a CORT ett tte aT ee age 2 


s $75 1 ROUTINE write_line = 

3 re it 1 7 

3 7 6 1 !e¢ 

: £8 ? 5 ! Functional description 

; 580 $3 7% This routine writes one Line of the input file to the output file. If an 
> 581 658 1! error occurs writing to the output file, a severe error is signaled 
: Hy 223 ’ and the program terminates. 

: 584 0661 1 | Calling sequence 

; Be beeg 1 i : ms li () 

3 ! write_Lline 

3 o bee 1! ad 

; 588 0665 1 ! Input parameters 

; 589 3098 1! 

; 590 0667 1! none 

: 33) bed 1 i Implicit § 

3 ! Implic nputs 

; 38 0670 1! 

: 594 0671 1! none 

3; 595 0672 1! 

: 299 0675 1 ! Output parameters 

s 397 0674 1! 

; 598 0675 1! none 

; 599 0676 1! 

: 600 0677 1°! Implicit outputs 

; 601 0678 1! 

3 o0e 0679 1! none 

: be 0681 1 i Routine val 

3 ' Routine value 

3; 605 et) 1! 

; 606 06835 1! novalue 

; 607 06 1! 

: 806 3} BEGIN 

; 610 beae 

s 611 0688 LOC 

; ols 89 form_feed : BYTE INITIAL(26), 

s 61 90 offset INITIAL (0), 

: 6146 691 desc : VECTOR(2), 

3; 615 069 status; 

; ols y 

; 61 98 IF .type$ flagsl $ i ) 

3 -type$gen_flags(type$v_paginate 
o18 %6 ae ype$gen_flags[type$v_pag 

; 620 9 BEGIN 

: 621 38 LOC inter; 

; © g desc of": -output_rabCrab$w_rsz]; 
; 6 descl1J = .output_rabLlrab$l_rbfj; 
; 6 4 , 1 LF NOT CHSFAIL (CHSFIND_CH(.descl03, .descl1),%CHAR(12))) 
3; 6 $ 7 ¢ 4 BEGIN 

: 6 7 4 LIBSGET wi done {O23 doeck 13)? 
; 628 705 4 CHSMOVET.descl0J,.output_rabCrab$i_rbf),.desc{1)); 
Se | a le 

3; 631 708 : pointer = CHSFIND_CH(.desc(0),.descl1),2CHAR(12)); 


: 


Sep-1984 01:44:53 YAK=11 Blisgo32_4_0-74 Page 21. 
ibeste 1984 $2:t0:08 ECC TUre SRST WPEMAiN. O33; 1 oe i) 


3 6 709 IF NOT CHSFAIL(. pointer) 
: § 5 at : THEN, “ | 
; 635 ie 6 BIND's string = pointer : VECTORC,BYTE]; 

3 ? ni? 6 gtringl0J . form_feed; 
; 638 715 é ELSE EXITLOOP; 

3; 639 re 4 END; 

3 9 14 4 output. rabCrab$l_rbf)] = .descl1); 
3 ong 0719 tine counter = .Line _counter+(.,output_rabCrab$w_rsz]/.line_width)+1; | 
; 64 720 ent ine_counter GTR” .bottom_line 
3 644 8 1 

; 645 7 ; 4 EN REGIN 

3 646 07 4 Line counter = 2+(.,output_ rabCrabSw_ rsz)/.line_width); 

> 647 0724 4 (. Ler “PUT TICREEN) (Sdeseriptor(’ Press RETURN to continue’), bottom_of_page,middle_of_line,screen_flags 
; 648 34 5 4 status = bSget sPtypetvacontro + hai 

: 649 726 4 IF ty esgen ft lag : type$v_controlc 

; 650 0727 & T 

3; 651 0728 4 (. LBR_ERASE “LINE} (bot ton of page alge of _line); 

3 $36 0729 4 IF .command~ ~desc(dsc$w syenathd x) 

; 65 0730 4 OR .status EQL rms$_e 

ae ors, fe IF fHEN Ry An fee 

3 . type$gen_flagsltype$v_v 

: 656 b735 THEN ° 

3; 657 0734 ? BEGIN 

; 658 4 5 (. LBR_SET_ CURSOR) (bottom_scroll,top_line); 
: 659 736 «(5 If .output._ fablfab$v_cr]~ | 
: 660 9? Ee OR zoutput fabl fabsv_ pen) 

3; 661 738 «5 (.CBR_UP_SCROLL) (); 
3 66¢ 0739 5 END 
; 66 0740 4 ELSE 

3 664 0741 4 (.LBR_ERASE_PAGE) (top_Line,top_Lline); 

3; 665 Bree ND; 

3; 666 074 END; 

3 667 0744 

; 668 0745 status = SPUT(rab = output_rab); ' Put the buffer to the output file. 
; 66° ore$ If wet -Status ! If we fail, signal an error. 
: 671 0748 typeSfile_error(msg$_writeerr,output_fab); 
3; 67 0750 RETURN .status | 
3 674 0751 1 END; 


-PSECT SPLITS,NOWRT,NOEXE,2 
6F 74 20 4E 52 55 : 20 73 73 65 7 29 i P.AAQ: .ASCII \Press RETURN to continue\ 
000 


69 74 6E 6F 
OOD8 P.AAP: .LONG 24 
000C -ADDRESS P.AAQ 


-EXTRN = SYSS$PUT 
-PSECT SCODES,NOWRT,2 


000000" 


03 FBF4 
04 
BE 
000000006 
BE 0188 
BE 
0188 
50 
FBD8 
0000° 
000000006 
04 FGF4 
0000° 
0001827A 
20 FBF4 


06 (OIE. 


a 


CWO ONS PS ~TV 
—_ 
wn 


Rh 
a 


ad 
wn 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


A 
D 
44 
49 
4B 
D 
F 
1 
4 
6 
C 
1 


SSESFEsceNAESOSECSEESE 
PS 
wn 


sss 


AAAS 
ow 
PAM 


ooooooooo 


OOoOSGOCoOoOoOoOoOoOoooooooeoo 


o 


SoRE SEER SS sesocsaIORTS 


SOQOEMODWPFPOOOM OOMOFOMOOO SINS PUM EF SMMROIwDmM OOF oF PWVUVMOOONOV0Owvon 
oo 


SINISE NVI INSISTS NI 2 NINETEEN SPUN MNIMM OS IO NNDWOFr on 
WWHTNSO OE 
OD FP UNE FF EO OD FO FN HMM MOA OO "OWE POW MV MWMLVPOl Of 


MMNOOM OS -D BM OWOSOMI NONDOOOOO0—9 DOWD $$ 09 9 "WN TN O0- 9 9 Swe 


sii AX-11 $$-32 V4.0-7 
0: CLIUT °§ CJTYPEMAIN. 83 31 


Save R2,R3 ght + RS. ,R6,R7 
LINE_COUNTE 

48, SP 

#26, FORM_FEED 

OFFSET 

3, TYPESGEN_FLAGS, 1$ 
OUTPUT_RAB+34, DESC 
OUTPUT~RAB+40, DESC +4 
#i2, DESC, adesc+4 

2$ 

R1 
R1 


LIBSGET 
SOUTPOT “7+ ipa a@DESC+4 
“DESC, aDESC 


i 
2 
“a 
m 
es] 


RM_FEED, (POINTER) 


$C+4, OUTPUT_RAB+40 
UTPUT RAB+34,~R1 

E_ WIDTH, R 

CINE GUNTER RO 
0) COUNTER 
E > EobiNER® BOTTOM_LINE 


1), LINE COUNTER 
_FLAGS 
LE“OF LINE 
BOT TON OF -PAGE 
#4, @LBR_PUT_SCREEN 
D_BESC 
#1, LIBSGET_ COMMAND 
RO. STATUS 
#5. TYPESGEN_FLAGS, 7$ 
#1; RO 


MIDDLE -pf -b INE 
oot ron TTOM 
SLR, R ERASE. LINE 


—MAO RO — SS MroMM 


A 
RO) 
N 
$~ 
R 


MNF" —- Dr OIwWUXMNVIALSacscewe 


QOnOn nm 


oz 
c= 
r] 
m 
rn 
= 


$ 
ie “198938 
Tyegseen. FLAGS, 9$ 


eae Ott un oR 
Pr. FAB+ $30.8 
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; Routine Size: 


ME 8 
rape oh 

0000 oF oe, 
000000006 99 : 09 
 soosfhd? i 

0000V CF F 

Cf sf 

50 D4 

04 


282 bytes, Routine Base: S$CODE$ + 03A5 


sep-1 
=Sep-1 


384 12:46 


33 AXx-11 OL fegs3e V¥4.0-74 


CLIUTL.SRCJTYPEMAIN.B32;1 


#2, OUTPUT FAB+30, 10S 
’ @LBR_UP_ SCROLL 


TOP_LIN 
TOPCLIN 
#2, aLBR_ERASE_PAGE 
OUfPUT_RAB 
#i, SYS$PUT 
0 STATUS 
STATUS, 11$ 
TPUT FAB 
69172 

#2, TYPESFILE_ERROR 
STATUS, RO 


2OUOD 
oc —C 
™N 


RO 


Bete Ge Ge Ge Ge Ge Ge Se Se Se Fe Se Se Se Se Se 


IN) ed ed ed ed ed ed ed 
WN —OOOSwouluwty- 


NNNNNNNSSSSSSY “ 


MOPRITURD 
= _ 


vvv 
sss ~~ 
Wt oo 


igus es oie enn 


pp i ee i | 
WN — SO OONAOULS WN "OC VOONOULS wn — 


SANS 
SSSSSSFTasecs ~~ 
DONOW 


> > b>] 


Bn tn tt et RR tt oy 
000 
Wwr— 


> 
aE 
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CLIUTL.SR 
OUTINE ast routine :NOVALUE = 


-——--—- 
+ 


+ 
Functional descr’ption 


This ast routine is called when a user types CNTRL/C. Its purpose 
is to set a flag so that we skip to the next file in the file spec. 


Calling sequence 
write line () 

Input parameters 
none 

Implicit inputs 
none 

Output parameters 
none 

Implicit outputs 
none 

Routine value 
novalue 


L 

status; 

! User typed CNTRL/C. 

! Flush any 1/0 on queue. 


type$gen_flags(type$v_controlc] = TRUE; 
status = SCANCEL (CHAN = .channel); 
IF -Status 

THEN SIGNAL (msg$_syserror,.status); 


status = $Q]0W (CHAN = channel, ' Reenable CNTRL/C handler. 
FUNC = (IOS_SETMODE OR IOSM_CTRLCAST), 


Pi = ast_routine, 
PS = &x'3"); 
IF NOT .status 
THEN SIGNAL (msg$_syserror,.status); 
RETURN; 
END; 


eEXTRN SYSSCANCEL, SYSSQ10W 


; AX-11 Oh regen V4.0-74 
CJTYPEMAIN.B32;1 


ae ae 


rom 


TYPE MAIN 
v04-600 


; Routine Size: 


3s v2 


0000° 
000000006 


000000006 


94 bytes, 


0805 1 


33 000000006 


E 0000' 
08 

00951184 
3 
7E 

cB 

7E att 

7E 000° 
00 
52 
08 

3 00951184 


000c 
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Routine Base: SCODES + O4BF 


N 2 
1enSep-1986 92:10:08 


00000 AST_ROUTINE: 


NUNROCODMONMSCS SUM 
be 
Fe 
vv 
cc 
aa 
x= 
-- 


NNN 


OP SMMOVIMO 


CLIUTL.SRCJTYPEMAIN.B 


OAONDR2ZOarn 


T 
#9769 96 
#2, LIBSSIGNAL 
a3 _— 


AST_ROUTINE 
(SP) 


=(SP) 
#291, =(SP) 
ee -(SP) 


#i2, SYS$Q10W 
RO, STATUS 
STATUS, 2 
STAT 


#9769396 
#2, LIBSSIGNAL 


Ax-11 Bliss-32 V4.0-74 
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ROUTINE type$Sget_cmdqual : NOVALUE = 


1e4¢ 
} Functional description 


Wr 
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This routine gets the command qualifiers for the command Line. 
Calling sequence 

type$get_cmdqual () 
Input parameters 

none 


| 
| 
Implicit inputs 
Output parameters | 

none | 
Implicit outputs | 


none 


tee ee i ie | 


Pe aeValeal al al eal eal eal al ales oe ae ae a? oF oF oF oF oF 
SOON AUE WN S(O VON WN OWOONOu 


i 
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i 

i 

i 

i 

i 

i 

none 
i 

i 

i 

i 

' 

i 

i | 
Routine value 
] 


novalue | 


CAL 
bitmap, 
lbrindex, 
status; 


bitmap= Lib$Sm_cqf_confirm OR LibSm_cqf_exclude OR ' Bitmap of qualifiers 
Lib$Sm_cqf_before OR ie m_caf_since R ! that the common qualifier | 
li 


oP yt ot et et et eh hd eh aden 


0 
LibSm_cqf_created OR m_cqf_modified OR ! package is to check for. 
LibSm_cqf_expired OR m_caf_backup OR 
LibSm_cqf_byowner; 


= 
= 
AMM 


i NOT (status = Lib$qual_file_parse(bitmap,type$context))! Get common qualifiers 
SIGNAL_STOP(.status); 
type$gen_flags(type$v_paginate] = cli$present ($descriptor('PAGE')); 


Nite ty ty tet Ate ty tet 4 
MMAMAVIVIVIMIVIVIW 


‘ 
! Find the image symbols only if we need them 


POROROROROPONOPOROPOWRONONONUNOPONONONPNINININID 2 3 es 
- @- 
om 
i>) 
ro 
2 
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M—C Oe 


Roo 


IF .type$gen_flags(type$v_paginate] THEN 


TYPE_MAIN 
v04-000 


3 | 
ese 1984 44:5 AX-11 Bliss-32 V4.0-74 P 7| 
12-80-1382 9334 08 CLIUTL.SRCJTYPEMAIN.B32;1 — BS 


: 788 63 BEGIN 
: 789 64 lbrindex = 0; 
3 a4 pe92 ? he addr wheadl(. Lbrindex] NEQ 0 
; 79 O86? 4 status = LIBSFIND se Sheets s baa aoe SCRSHR') 
: 193 868 4 none br na nanes Read. Tbr index lbr_addr_headL. lbrindex)); 
; 795 O80 4 THEN SIGNAL STOP (.status); 
: 796 8 71 4 Lbrindex = ,lbrindex + 1; 
; 797 are 3 ; 
: 798 087 END; 
: 799 0874 1 END: 
.PSECT $PLIT$,NOWRT,NOEXE,2 
45 47. 41. 50 OO0EO P.AAS: ASCII \PAGE\ | 
00000004 O00E4 P.AAR: .LON : 
00090009" 00E8 “ADDRESS P.AAS ; 
52 42 53 52 43 § OOEC P.AAU: .ASCII \SCRSHR\ : | 
00000006 Soore P.AAT: :LONG 6 ; 
00000000' 000F8 “ADDRESS P.AAU : | 
.PSECT $CODE$,NOWRT,2 | 
001C 00000 TYPESGET_CMDQUAL: 
WORD Save R2,R3,R4 > 0806 
54 000000006 00 9€ 00002 MOVAB LIBSsTOF, hg R4 : 
7E OFF 8F 3C 00009 MOVZWL : 0848 
0000" CF 9F O000E PUSHAB Troeécontent : 0852 
04 AE OF 00012 PUSHAB BITMAP : 
000000006 00 02 FB 0001 CALLS , LIBSQUAL _FILE_PARSE : 
53 50 pO 0001C MOVL RO, STA Tus F 
05 53 £8 OO01F BLBS STATUS, 1 ; | 
53 ODD 00 2 PUSHL ST > 0854 | 
64 01 FB 00024 CALLS #1, LIB$STOP : 
0000" CF 9F 00027 1$ PUSHAB AAR > 0856 | 
000000006 00 or FB 00 B CALLS -¢ ISPRESEN : 
0000" CF 03 FO 000 H INSV mo 4 A YPESGEN FLAGS ; 
2F 0000 g E1 900 BBC TBE GEN_FLAGS, 4$ : 0862 
D4 0003F CLRL -LBRIND > 0864 
50 0000'CF4 29 0041 2$: MOVL LBR PADDR _HEADCLBRINDEX], RO ; 0865 
: 13 00047 BEQL i ; | 
0 bp 0049 PUSHL > 0868 
50 52 01 0048 ASHL LBRINDEX, RO : 
0000'CF40 DF 004F PUSHAL i! NAMES _HEADLROJ : 
0000" CF 9F 00054 PUSHAB ; 0867 | 
000000006 09 3 FB 00058 CALLS a3. L IBSF IND. IMAGE _SYMBOL > 0868 | 
5 D SF MOVL RO, STAT : 
05 E 6 BLBS STATUS, > 0869 | 
DD ? PUSHL : 0870 | 
64 or FB CALLS LIBSSTOP : 
2 D6 0006A 38: INCL tpkiN : 0871 | 


-> oe os j 


Routine Base: S$CODE$S + 051D 
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wo 
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; 80 76 1 ROUTINE get_term_info : NOVALUE = ; 
: B08 ei BEGIN _— 4 3 
: 805 e79 1e4 | : 
; “4 ae FUNCTIONAL DESCRIPTION: : 
; 808 O88 i Determine the file characteristics, i.e., page height and Line width, ; 
; 809 8 : of the file specified by the input fab. Also, check to see if device | H 
; 519 tt is suitable for page breaks. ‘ 
3 Big Osee i INPUTS: | : 
; HP 0888 i none : 
; 815 0889 : : 
; 816 0890 ' OUTPUTS: 3 
; 817 0891 ! 3 
; 818 089 ! none $ 
; 819 089 } | $ 
; ast Bao ROUTINE VALUE: $ 
; Ss¢ Be98 } Always true. | : 
; B24 0898 2 i-- : 
Pah ee er 
; 857 0901 status; | ; 
; 828 eT CRO | 3 
; 34 O38? ddp$b_pagelen = 3,0,8,0%; ! #** Hardwired page Length offset *** : 
: 831 0905 2 LITERAL | : 
: S36 844 getdvilen = 4*12 + 4; | : 
: 834 0908 2 LOCAL ; | ; 
; 835 0909 etdvidesc : $B8BLOCK geceetion?. : 
; 836 0910 evnamdesc : $BBLOCK (Cdsc$c_s_bin], ; 
; 837 0911 devbufsiz : INITIAL(0O), | 3 
; 838 gals devclass : INITIAL(O), | $ 
3; 839 091 devdepend : $BB8LOCK fede 3 
; art gate devdepend2: SBBLOCK (4); : 
: 42 0916 | : 
; 84 091 ! ; 3 
; ate pots : Do a SGETDVI to get the parameters of interest. 3 
3 Big 03 9 CHSFILL (0, getdvilen, getdvidesc); ! Init the $GETDVI buffer | : 
; Bc § getdvidesc g. 16,0) = 4; ' Get the device class | 3 
3 9 getdvidesc (2,0,16,0) = dvi$_devclass; ; 3 
3 $20 4 getdvidesc (4, 35° = devclass; ' | 3 
; 3) 5 getdvidesc (8,0,32,0) = getdvidesc (0,0,16,0); : 3 
; 53 $ getdvidesc (12,0,16,0] = 4; ! Get the device dependent chars | : 
3; 854 3 getdvidesc (14,0,16,0] = dvi$_devdepend; : 3 
: 855 9 getdvidesc 8. 3 0] = devdepend; } i 
: 837 ; 9 getdvidesc (20,0,52,0] = getdvidesc (12,0,16,0); : 3 
: 858 2 2 getdvidesc (24,0,16,0) = 4; ! Get the device type : 


Enable CNTRL/C handler if this is a terminal. 


ag eeuelecs EQL dc$_term) If output device is a terminal 


oo Sos 


Se Se Oe Se Ge Be Se Se Ge ee @ 

33 
SSeS SSS SS sa Noanun—o 
Pete) MEW 9 OONOULSWN Oo 


v0 


Get a channel 


$3338S333 


BEGIN 
Status = SASSIGN (DEVNAM = $descri tor ("SYSSCOMMAND"), 
CHAN = channel); 
If NOT . 
THEN SIGNAL (msg$_ syserror,0,.status); 


status = $0]0W ~~ = .channel, 
FUNC = (10$_ SETRODE OR IOSM_CTRLCAST), 
P1 = ast foutine, 
PS = £x"3"); 
ogee us 


GNAL (msg$_syserror,0,.status); 


Enable CNTRL/C handling 


vvvD 
ooo 


If NOT .st 
THEN S$ 


F 3 
MAIN 16-Sep-1984 01:44: AX-11 Bliss-32 V4.0-74 P | 

600 ergeeni8hs P3itGi8s | Pee TbT shes TeeeMAin o$5. 1 age 3 
; 85 935 3 getdvidesc £26.0.16.0) = dvis. devdgpend | 
3 934 getdvidesc £38-0:38-03 = 4 depend >: at 5: ! 
; , 5 getdvidesc -0,52,0J = aie desc (24,0,16,0]; ! 
; 9 etdvidesc [(36.0,16.0) = 4; ! Get the device buffer si 
: 938 getdvidese 38: (18:0) = dvi$_deybutsiz; Teer % acti meal apr oswallcchigy 
; 5 9 getdvidesc (40, 3 .0J = devbufsiz ! 
: se Bet getdvidesc (44,0,32,0] = getdvidesc (36,0,16,0]; : 
: 868 P 094 status = SGETDV] (DEVNAM = S$descriptor('SYSSCOMMAND'), ! Get the device characteristics | 
: £68 ot ITMLST = getdvidesc); | 
: er 945 2 IF NOT .status 
3 Lf 8308 THEN 
; Bi bocb eoeet en_flags(type$v_paginate] = false; | 
: 875 0949 atvunh: ee TOenvaPee | 
; 876 0950 3 
: Be OF ay ae eee ter 
° J e t | 
; 881 0955 4 IF (.devclass NEQ dc$_term) ! If output device is not a terminal 
3 eae 0956 3 THEN 
: BBG 0958 4 typesgen_flags(typeSv_paginate] = fal | 
; n = : 
bss eee ype gen_flags(type$v_paginate alse | 
3 0960 3 ELSE 
ett Ooe2 TF devdepend2ltt2sy_deccrt) | 
3 .-devdepen v_deccr 
; pot $968 ? a Stee typeSgen_ flagsCtype$v_vt100] = true; | 
; 891 $963 4 (ené-width = MINU (.devbufsiz, 132); ! Get the Listing width | 
3 $36 0966 4 middle_of_line = (. line. width - 22)/2; ' Calculate middle of Line 
; 89 0967 4 bottom_of_page = sdevdepend Cddp$b_ pagelen); ! Get the Listing height 
3; 894 0968 4 bottom_line = .bottom_ of_page - 2; 
; +24 0969 D; 
: 896 09 END; 
: 897 09 
; 898 % ' 
; 3 | 


oooowono 
—oe om we - 
WMluwty—O 


-$ep-1984 01:44: AX-11 Bliss-32 v4.0-74 P 1| 

1$-se Been bke Poitosos | eee ObkesTee MAIO 285. soe 3} 
990 END; 

0391 ; 
992 END; 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


so GE 41 4D 4D GF 43 24 53 59 53 9O0FC P.AA: ASCII \SYSSCOMMAND\ : , 
SSE, BRI PMs IIR eH ay : : 

bo GE 41 4D 4D GF 43 26 53 it P.AAY: ASCII. \SYSSCOMMAND\ : 
boo00008" 00126 MM? “LONE sD. aay 


~-EXTRN SYSSGETDVI, SYSSASSIGN 
-PSECT S$CODES,NOWRT,2 


| 
“BLKB | 
| 
| 
O0FC 00000 GET_TERM_INFO: | 


~WO Save R2,R3,R4,R5,R6,R7 3; 0876 
57 000000006 00 9€ 000 MOVAB LIBSSIGNAL, R F 
f 0000" CF 9E 0000 MOVAB TYPESGEN_FLAGS, R6 : 
5E 8 AE 9E 0000 MOVAB =72(SP), SP : 
4 AE D4 001 CLRL DEVBUFSIZ + 0877 
7E D4 0001 CLRL_  DEVCLASS F 
C MOVCS #0, (SP), #0, #52, GETDVIDESC : 09 
34 00 6E i. 00 2 9017 5 0, #52 0920 
18 AE 00040004 8F 00 SooTg MOVL #262148, GETDVIDESC + 0922 
1C AE 6E 9E 00026 MOVAB DEVCLASS, GETDVIDESC+4 + 0924 
AE 18 AE 4 OO2A MOVAB GEIDYIDESC, GETDVIDESC+8 : 0925 
4 AE OO0A0004 8F 00 0002F MOVL #655364, GETDVIDESC+12 + 0927 
8 AE C AE 9E 00037 MOVAB DEVDEPEND, GETDVIDESC+16 : 99 9 
C AE 4 AE 9 003¢ MOVAB GE IDYIDESC® GE TDVIDESC+20 : 0930 
6 AE 001C0004 8F D 0041 MOVL 1835012, GETOVIDESC+24 : 99 2 
AE 4 AE 9E 00049 MOVAB VDEPEND2, GETOVIDESC+28 ; 09 
8 AE 0 AE 9 D045 MOVAB #524540" cet GEIDVIDESC+32 : 0935 
C AE 00080004 8F 00 0005 MOVL 24292, GETDVIDESC+36 : 0937 
40 AE 08 AE 9€ 005 MOVAB VBUF GETDVIDESC* 40 : 0939 
44 AE $C AE 9 MOVAB OF YDVIDESt* 6, GETDVIDESC+44 : 0940 
ee ELAS = ae 
28 AE OF 0989 PUSHAB GETDVIDESC : 
0000' cr 9 66 PUSHAB P.AAV ; 
¢ CLRQ = = (SP) ; | 
000000006 99 FB 0007 CALLS #8, SYSSGETDVI : | 
D MOVL RO. STATUS ; 
04 iC BLBS STATUS, 1$ > 0945 | 
66 A F Bi cB2 #8, TYPESGEN_FLAGS ; 9468 | 
4 ¢ 03 €1 1$: BBC #3, TYPESGEN_FLAGS, 5$ : 0338 | 
00000062 8F : D4 CAEL VCLASS, #66 : 09 | 
Sh 8 BA BICB2 #8, TYPESGEN FLAGS > 0958 | 
6 f \) RB ¥ ; 35 


H 53 
1eo$ep=t9be 82:10:08 LCLTUELSSRESTHPeMAiN.839;1 


03 07 A 1 00095 2$: BBC #5, D WOERENDZ<3 
6 16 5 3A B1SB2 «#16, evD PESGE rokese 
a 08 AE pO St owt biol 
00000084 ar 5 Di A CMPL Urey2. 
4 1B OOOAC BLEGU aS. 
50 84 BF 9A OOOA MOVZBL #132, RO 
£0 A6 0 D Bo 4$: MOVL. RO, LINE_WIDTH 
50 FO OA if C B ual f 2. INE WIDTH, RO 
FLAG 5 0 § B DIVL MIDDLE E OF LINE 
EC Ab OF AE A 000C¢ mOVZBL attic BOT TOKO F_PAGE 
4 Ab ES Ab C3 ¢ SUBL ay F_PAGE, “BOTTOM. LINE 
00000042 BF F D CB S$: CMPL DEVCLA SS, 
12 0000 BNE 
— 7C 900 CLRQ = =(SP) 
BC A6 OF 06 PUSHAB CHANNEL 
0000" CF 9F 000D PUSHAB 
000000006 99 4 FB ODD CALLS #4, SYSSASSIGN 
2 D £4 MOVL RO. STATUS 
0D E8 O00E7 BLBS status, rs 3 
3 DD QOEA PUSHL TUS 
E 04 OOOEC CLRL. = 
00951184 8F DD OOOEE PUSHL 69396 
67 03 FB OOOF4 CALLS 3 LIBSSIGNAL 
; 7C OOOF7 6$: CLRO = 
7E 03 7D 000F9 MOVa #3, =(SP) 
7E p4 OOFC CLRL = 
FE31 cr F OOFE PUSHAB AST ROUTINE 
— 7C¢ 9010 CLRQ. ss =( SP) 
7E D4 00104 CLRL = = (SP) 
7E 0123 BF 3¢ 00106 MOVZWL #291, =(SP) 
7E DC Ab 3C 00108 MOVZWL CHANNEL, =(SP) 
7E D4 O010F CLRL 
000000006 09 OC FB 00111 CALLS #12, $yssalow 
2 50 DO 00118 MOVL RO, STATUS 
3g £8 00118 LBS StAtUs, 3 
52 DD Ole PUSHL STATUS 
7E D4 001 CLRL. = =( SP) 
00951184 BF DD 1 2 PUSHL #9769396 
67 3 FB 001 CALLS #3, LIBSSIGNAL 
04 00128 7$: RET 


; Routine Size: 300 bytes, Routine Base: SCODE$ + 058C 


; 919 0993 1 
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1 
Vv -Sep-1 CLIUTL. TYPEMAIN.B | 
3 921 1 ! ROUTINE type$open_output = 
Bae eee 
; ! Functional descr on: 
: 388 999 1 | Thi te the output fil | 
; : $s routine open the outpu e. 
BOR BOE emer 
: ! Input parameters: 
i 999 1002 1 | . | 
; 9 1003 1! none 
{3a 1008 | i Implicit input 
Ps : om c nputs: 
Bom ee 
ss 1007 1! none 
: 38 1009 | § Output paranet 
; ! Output parameters: 
: 987 15 Recetas 
3 338 1011 1! none 
3 939 1ol¢ 1! 
; 940 1015 1 ! Implicit outputs: 
3: 941 1014 1! 
; oh 1015 1! none 
; 94 1918 1! 
3; 944 1017 1 ! Routine value: 
; 945 1018 1! 
; 946 1019 1! none | 
; 947 1930 1! 
; 948 1021 1 f== | 
; 949 ose 1 
: 950 10 BEGIN 
3; 951 sss 
3 326 1025 LOCAL 
; 95 10 $ status; 
3; 954 10 
s 929 1028 
; 956 P 1029 SFAB_INIT (FAB = output_fab, ! Initialize the output FAB. 
3 957 P 1030 CTX = output_rab, ' Save address of output RAB. 
; 958 P 1031 FAC = , ! File access is write. 
; 959 P 1938 ORG = SEQ, ! File organization is sequential. 
; 960 P 10 NAM = output_nam ' Address of output NAM block. 
; 961 P 1034 FNS = XCHARCOUNT(*SYSSOUTPUT'), i Default name is SYSSOUTPUT 
3 208 P 1035 FNA = UPLIT BYTE(’SYSSOUTPUT"), 
:; 96 P 1936 FOP = <SUP,OFP,SQ0> ! File options are supersede, output file parse, seq 
: 964 , > MRS = .input_fab fabsu_ars} ! Maximum recored size from SGET. 
; 965 : M3 FSZ = .input_fabl fab$b_fsz 5; ! Fixed control area size. | 
: 363 P 1040 SRAB_INIT (RAB = output _rab, ! Initialize output RAB. 
; 968 P 1041 RAC = ' Record access is sequential. 
3; 969 P 1 § = rh_buffer ' Record header buffer address 
3 44 ' ? FAB = output_fab); ! Address of output FAB. 
; 978 P 1045 2 SNAM_INIT (NAM = output_nam, ! Initalize output NAM. 
3; OF P 1 § ESS = nam g.maxrss. ! Expanded string size 
3; 974 P 1 ESA = typeSoutput_rsa, ! Expanded string adress | 
3; 975 P 1 3 RSS = nam$c_maxrss, ! Resultant string size | 
: 378 P 1 RSA = typeSoutput_’sa, ' Resultant string address 
; 97 1050 RLF = input_nam); ! Related file block. 


MA 
v04-000 
373 t $ i t $ tput TRU 
e$gen_flags : sysoutput] = 
981 output. 13 offab ts sftye # in): yf "Input. ab be fabeb. rfnd; 
98 output_ ah fabsb~ rat - input_fablfab$b_ratJ; 


status = el iegrovent (Sdecertptert® OUTPUT')); 
IF Bee ™ 


VFN —OODONOUS UT 


EN 
ELSE 


; 1 

: 1 

3 1 

: 1 

$ 1 

; 98 1 

3; 9 1 

3 Dee 1 

; 9 1 

; 9 1 

3; > 1 

; #989 1 

; 990 1 

; 991 1 

3 O36 106 

; 1908 

; 994 139 IF .status EQL cli$_negated 

; 995 1068 THEN 

; 996 hs 4 BEGIN 

3; 997 1070 4 typeseer ss f agst types ~Sygoutputd = f 
: 998 1071 4 outpu fab$b- tns J": ARCOUNT(' 
; .999 1906 4 output_ -f30 fabst- fnaj = UPLIT BYTE(' 
; 1000 107 END; 

3; 1001 1074 END; 

3 1008 1075 

3; 100 176 

3: 1004 107 IF (NOT SCREATE( fesoutout fab)) OR 

3; 1005 1078 (NOT SCONNECT(RAB=output_rab) ) 

3; 1006 1079 THEN 

3; 1007 1080 BEGIN 

3; 1008 1081 RETURN fate athe openout ,output_fab); 
3; 1009 1OR6 : 

: 1010 108 

3 1011 1084 

3 ols 1085 RETURN true; 

3; 101 1086 END; 


iEosen-1964 1 44 


alse; 
NL:'5; 
NL:'); 


SRAS_PTR= 
SRMS_PTR= 
SRMS_-PTR= 


be Heer Shes TeBemaino$3.1 


! Assume writing to sys$output 
! Init cutput record format to input format. 
i Init outpur record attr to input attr. 


typesgen. flags(type$v_ sysout tput] = false ! Not writing to sys$output 
06 i$get_value($descriptor('OUTPUT'), out out desc); ! Get output file 
output_Tab(fab$b_fns] = .output_desc(dsc$w_Cengthi: 

output_fablfab$i"-fna] = .output_descldsc$a_ _pointerd; 


! Not writing to sys$output 
! Default name is NL: 


!' If we fail CREATING or 
! CONNECTING to the output file 
! then signal an error and return. 


«PSECT SPLITS,NOWRT ,NOEXE 2 


ASCII LEY SSOTPUTS 
eASCIIT = \OUTPUT 


“ADDRESS P.ABB 
“ASCII \OUTPUT\ 
“BLKB 
“LONG 
ADDRESS P.ABD 
SASCIT\NL:\ 
TPUT_ 
TPUT~ 
UTPUT-NAM 
.EXTRN SYSSCREATE 
PSECT SCODES,NOWRT,2 
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AAO—AO— 
COMM OWDOMOPYNV—M COD ™AYPOWNOOMMMMMOS AMMEO MOCOMMOFRMOOCO O 


SOoOSoOCOoooooooooooooooooooooooooooooooooooSo 


2 
B 
9 
9 
9 
8 
9 
2 
B 
9 
9 
9 
2 
B 
9 
8 
9 
9 
8 
9 
F 
b 
4 
9 
F 
9 
Dd 
1 
g 
Dd 
D 
F 
§ 
F 
E 
Dd 
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SSBSoun eT PoBSE IONS 


pol9ee 82:10:03 Le IutLsSmeSTYPEMAIN. 8 


TYPESOPEN OUTPUT 
WORD 


Save R2,R3,R4,R5,R6 
RMS_PTR, Rs 
#0, TSP), #0, #80, SRMS_PTR 


#204 RMS_PTR 

#556876980 SRMS_PTR+4 

#1, SRMS_PfR+22 

OUTPUT _RAB, SRMS_PTR+24 
MS_PTR+29 


+31 
OUTPUT_NAM, $RMS_PTR+40 
P.AAZ, $RMS_PTR+24 
y RMS 5 


#17409, SRMS_PTR 

SRMS_PTR+ 

RH_BOFFER, $RMS_PTR+44 
OUTPUT FAB, SRMS_PTR+60 

#0, (SP), #0, #98, SRMS_PTR 
#24578, S$RMS_PTR 


#1, $RMS_PTR2 

TYPESOUTPUT_RSA, SRMS_PTR+4 
RMS_PTR+? 

TYPESOUTPUT_RSA, SRMS_PTR+12 

INPUT_NAM, SRMS_PTR+16 

ry TYPESGEN FLAGS 

INPUT_FAB+30, OUTPUT_FAB+30 


P.ABA 
#1, CLISPRESENT 


US 
#4, TYPESGEN_FLAGS 
OUTPUT _DESC 


#2, CLISGET_VALUE 
OUTPUT_DESC> OUTPUT FAB+S2 
UTPUT“DESC+4, OUTPOT_FAB+44 


CLIS_NEGATED, R1 
JATOS, R1 


#4, TYPESGEN FLAGS 
#3. OUTPUT FABS5 
p ABE. OUTPUT _FAB+44 


#1, SYSSCREATE 
RO’ 35 


fPUT_RAB 
#1, PYSSCONNECT 
RO. 4$ 


PUSHL R6- 
PUSHL #9769124 


S33 338 Ses 
See S82 Ss 


~NoOwr 
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ot a 
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i$o$eoctags O1:44:85  yaRctt Liagsz ve onzeg | Page, 


0000v CF : fo 19 CALLS He TYPESF ILE_ERROR 3 
1 1 BRB 5 ; 1088 
50 1 B0 112 48: MOVL #1, RO : 108 
4 0011 RET : 
50 04 18 5$: CLRL RO : 1086 
04 0011 RET 3 


; Routine Size: 281 bytes, Routine Base: S$CODES + 0688 


; 1014 1087 1 


a 3 
TYPE_MAIN 16-Sep-1984 244: AX-11 Bliss-32 V4.0-74 
v04-600 13-808- 1382 ON: 4bi88 CLIUTL. SRCITYPEMAL B43 
; 1918 } HH} } GLOBAL ROUTINE type$search_error (fab_block) : NOVALUE = 
: 101 1090 1 !44 
: 1018 : 4! : Functional description: 
: 19 1 1 3 ii This routine reports an error as a result of searching for the 
: 1? ¢ : Be ! next file to be typed. 
: 19 4 36 ! Calling sequence: 
; 19 $ 1038 ; type_error (fab_block.ra.v) 
; 19 8 1100 i Input parameters: 
; IOs 1106 : ; fab_block - the FAB associated with the file 
: 103¢ 1104 1 § Implicit inputs: 
3: 10 1105 1! 
we yo 
: 1036 1108 1 ! Output parameters: 
3: 1037 1109 1! 
eos had pes 
3 1040 11g 1 ' Implicit outputs: 
3: 1041 111 1! 
1008 Wis 13 sete 
2 1044 1116 1 ' Routine value: 
3: 1045 111 1! 
: 1oe9 Wie 13 —_ 
> 1068 1120 1! Side effects: 
3: 1049 1121 1! 
: 1050 1156 1! none 
: 1051 11 1! 
3 1036 11246 1 !== 
: 105 1125 «1 
ie Lipp gecem 
; 1938 Ns type$file_error(msg$_searchfail,.fab_block); ! Report specified RMS error. 
: 1058 1180 ¢ END; 
0000 ENTRY TYPESSEARCH_ERROR, Save nothing 
F AC 0D 00 § PUSHL F K 
00951238 Y DD : PUSHL #976 
0000v CF 2 fe 001 cyte #2, TYPESFILE_ERROR 


Routine Size: 17 bytes, Routine Base: S$CODE$ + 0701 


igh a HL vain asd 
CLIUTL.SRCITYPEMAIN.B32;1 


1986 92:46:05 


3 
1 = - 
10 8ep- 


Heise Q46:53  YAGUSMENTH RAMEE, PoE 
GLOBAL ROUTINE typeSfile_error (message_id, fab block) : NOVALUE = | 


'ee 
' Functional description 


&S 


we 


This RMS error action routine sends an error message to the user. 
Calling sequence 

typeSfile_error (message_id.rv, fab_block.ra.v) 
Input parameters 


CCOOCCCO 
ANNAN 
aE oO 


message_id - The te code for the message to send. 
fab_blotk - Address of the FAB block of the file for which the error occurred 


Implicit inputs 
The associated NAM block. 
Output parameters 


none 
Implicit outputs 
none 
Routine value 
novalue 
Side effects 


none | 
| 
| 


BEGIN 


SEEESS SERS itt St Skee 


P 
fab_block : REF S$BBLOCK; 

BIND 
rab_block = .fab_bloc fab$l tt : SBBLOCK, ! Associated RAB block address 
nam_block = .fab_block Cfab$l“nam)] : S$BBLOCK; ! Associated NAM block address 


LOCAL 
status : ygcron (2), 
name_desc : VECTOR (2); ! String descriptor for the file name 
' | 
Fill in the file name descriptor with the most complete name possible. 


Be Be Se Se Se Se Se Be Se Se Se Se Ge Se Se Ge Se Ge Fe Se Se Se Be Se Se Ge Se Ge Se Se Ge Ge Se Ge Se Ge Ge Se Fe Se Ge Se Se Se Se Se Ge Ge Se Ge Ge Se Se Ge Se Ge ee 
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QOARGN=SSSIRRE ANOS 


if jnem_block Cnam$b_rsl] NEQ 0 : If a resultant name string exists, | 


4 
te =1984 AX-11 Bliss-32 V4.0-74 P 40 
1 ~Sep-1984 3:10 08 CLIUTL.SRC TYPEMAIN.039; 1 olf 


BEG 
a gees Fo] = -nam_block Cnam$b_ sti 
name_desc -nam_block Cnam$l=rsa 


— 
< 
a 
= 
zz 

<cC 


$ 
3 


then fill in the resultant name Length 
and address. 


ELSE 
IF .nam_block Cnam$b_esl] NEG 0 
—. 


VMEWnN—O”o 


If RMS created an expanded string 
but couldn't open the file, 


then fill in the expanded name Length 
and address. 


ae yen he -nam_block (Cnam$b +t 
name_desc -nam_block Cnam$l—esa 


mm 
i 
4d 
m 


! Otherwise, no RMS name information is available. 


9] 5 = .fab_block ([fab$b_fns]; 


So use the file name Leng: 
1) = .fab- “block Cfab$l_fnal; 


and length passed by the CLI. 


name “desc 
ND; 


Check to see if the FAB 

or RAB contains the error 

status, and retrieve it. 

The primary RMS conphetven code, 

and the scondary RMS completion code. 


If NOT .fab_block(fab$l_sts] 
venaa™ 


SSLEARAVLS SELES 
of 
‘a. 
@ 
w 
o 
ore 


block Cfab$l_sts 
block Cfab$l=stv 


eye - fab_ 
status! -fab_ 


Error status is located in RAB. 
The primary RMS completion code, 
and the scondary RMS completion code. 


seats -rab_block Crab$l_sts); 
status(1 -rab_block Crab$l"stv 


' 
Signal the error condition. 


SIGNAL ( 
jnessace. id, 


cad rege 
sta tust6s 
‘status(1)); 


e message identifier, 

number of message argwients 

the address of input name descriptor, 
the primary RMS completion code, 

and the scondary RM canplenion code. 


cc 
ss 
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1 END; 


0004 000 ENTRY TYPESFILE_ERROR, Save R2 : 1132 
SE 10 C2 0000 L2 #16, SP ; 
1 08 AC D0 000 MOVL FAB BLOCK, RI : 1176 
2 Ai D0 000 MOVL 24(R1), R 3 
28 Al pO 000 MOVL 40(R1). R : 1177 
3 A0 0011 TSTB3(RO) > 1187 
08 13 00014 BEQL $ ; 
bE 3 AD 9A 00016 MOVZBL 3(RO), NAME_DESC > 1190 
04 AE 4 AO DO OOO1A MOVL  4(RO); NAME-DESC+4 > 1191 
19 11 OOO1F BRB. Sté«SS > 1187 


| 
| 
! Signal error with the following arguments: 
| 
| 
| 


>> OS Oe OS 6S Oe FS OS OS FS OS 6G 6G FS 6G HS OG FS OS OG FS FS FS 6G OG FS OS HS OS OS FS 8G 8G ete 
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TYPE_MAIN 1b-5¢ $1984 01:44: AX-11 Blisg-32 V4.0-74 Pa 2) 
v04=000 1ea8eb= 188 F3iFG:88 | Hee TUT SARS T#beMAiN $3.1 9195, 
§ ROUTINE condit_handler (signal_array, mechan_array) = 


'e4 
: Functional description 


ww 


This routine is the condition handler for the main routine. It 
saves the most severe condition as the exit status. 


Calling sequence | 
condit_handler (signal_array.ra.v, mechan_array.ra.v) 


WMEWN—OOC 


SPP EE 


Input parameters 


signal_array = the address of the signal array for the condition 
mechan_array - the address of the mechanism array for the condition 


Implicit inputs 


Output parameters 
none 
Implicit outputs 


Routine value 
SS$_RESIGNAL 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
none 
i 
i 
4 
i 
i 
i 
i 
1 
i 
i 
i 
i 
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MiFWN—OOONOUESWN—"OOONO 


OA EE AA Be NE ee tee ee nee 


BEGIN 


i et a as td = 2 od 2 = 2 = ot = a at as 


SELERE RASS SSSR ON LSSELS OR ORES LISI MNS SEUSS OR 


signal_array : REF SBBLOCK; 


| 
| 
| 
TYPESEXIT_STATUS - Contains the most severe status encountered. 
| 
signame = signal_array Cchf$l_sig_name] : SBBLOCK; ! Get the condition name | 

| 


a ee ee et ee a et me ec a et ec ee ee ee ee a a nd od od od = 
ee ee em me ee ke ee a ed ed ed 2d wd = = 
~“ 


SNNNNOOO 
Po —OC0Oe 
RIPPIN BAM ININPOAININPINIAININPONOIIID 8 9 9 a SS Ss Ss SS SS 
— 


75 

7 ! 

: Update the ‘most severe error’ if the current error is more severe. 

7 : | 
10 0 
11 1 NOT .signame ! If an error signal 
i § AND ((.signame Stehu_ sever jty) ! and severity is worse 
1 GTRU - type exit Btotyets stu sovertty 2? 
13 : sed OR .typeSexit_sfatus(sts$v_severity ! or no errors yet 
16 typeSexit_status = .signame; ! then save it for exit | 
18 8 


feet gn Ree eee te SEN a eS Poe CRY 


4 
vou=000 1e=$ep-1986 82:10:08 ECC TUt SRESTyPEMAIN-OSS; 1 
: 1538 1388 : Sea SS$_RESIGNAL; ! Resignal to get message 


0004 00000 CONDIT_HANDLER: 
WORD 


: R2 
52 0000" CF 9€ 0000 MOV TYPESEXIT STATUS, R2 
50 06 AC 04 C€1 0000 ADDL #4, SIGNAC_ARRAY, RO 
ie 0 €8 0000 BLBS = (R 
51 62 0 0 EF O000F EXTZv #0, ist TYPESEXIT_STATUS, R1 
51 60 03 00 ED 00014 CMPZ2V #0, #3. (RO), RI ~ 
03 1A 00019 BGTRU 
03 62 E9 00018 BLBC TYPESEXIT STATUS, 2$ 
62 6 0 OOO1E 1$: MOVL (RO), TYPESEXIT_ STATUS 
50 0918 8F 3C 00021 2$: MOVZWL #2 6, RO 
4 00026 RET 


; Routine Size: 39 bytes, Routine Base: S$CODES + 0842 


; 1221 1291 #1 


<c 


iSoseoctgne O1:44:5  yancat oLtencdz v4. 0-742 


: 188 1898 0 Elton 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 
3 Name Bytes Attributes 

; SGLOBAL$ 15 NOVEC, WRT, RD om oNOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
; LBR_ADDRESSES NOVEE ‘NOMRT RD, + eNOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: BR_NAMES NOVEC,NOWRT, ROD, XE, » LCL, REL, CON,NOPIC,ALIGN(2) 
3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS 3 NOVEC,NOWRT, RD ,NOEXE, HR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 21 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; File Total Loaded Percent Mapped Time 

[ _$255S$DUA28:CSYSLIBISTARLET.L32;1 9776 154 1 581 00:01.0 

; COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: TYPEMAIN/OBJ=OBJ$:TYPEMAIN MSRC$: TYPEMAIN/UPDATE=(ENHS: TYPEMAIN) 
3 2153 code + 2039 data byt 

3; Run Time O88 rw 

r les y Time: Fe . 

3 Lines/CPU Min: 19 

: Lexenes/CPU-Rin: 32746 


ry Used: 203 pages 
ce Ro tenplone’ 
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